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MSMAITEAELE Write «0fLoting In € for facet rie mee eh ee) 
Oe a eete en eR TET TENT Ee y-Q0o © Vite @ DfloPtiOD. Im SURIRED B32 Edit: SBL1002 | 
09 bE Fite: 5 : 
bos jo 
09 wg ome pera ee so ia elem ae SRC tri 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


'® ALL RIGHTS RESERVED. 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY RDAN 


Se Se Ge Ge Ge Se Ge Ge Ge Se Se Oe Se Se Se Se Ge Se FHSS ee Ge we 


: 

4 $ 

5 1 $ 

§ 1 5 

1 a ; 

B 1 % ° 

y 0009 1 * : 

10 Bi 1 * : 

11 011 #1 * ; 

\¢ Boig 1 * ; 

1 01 1 te IN ACCO CE WITH THE TERMS OF SUCH LICENSE AND WITH THE * > 

14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® : 

15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 

16 B08 1 !® OQTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ” ° 

i EA ! = TRANSFERRED. * P 

'® x 4 

19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 

20 bo5¢ 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 

$3 4 1 : ‘ CORPORATION. * é 

! . 3 

$¢ 0038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 

24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * é 

:-) = 0025 1 !* * $ 
= 00 1 te * 3 
g ev 00 7 1 Vee RARE AREER EAE EE AREER EEE ARERR RARER EE e 
. 0028 1! 3 
5 $3 it 94 1 3 
3 0 9030 1! ; 
; 31 0031 1! 3 
: oT) 1! 3 
s 33 0033 1 ! ABSTRACT: 3 
H 34 0034 1! é 
; 2 0035 1! This module contains a procedure which writes a D_floating in 3 
; 38 boa8 : exponential notation to a textfile. ; 
; $s sit : ENVIRONMENT: User mode - AST reentrant : 
s rs Bey ! } AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 : 
; 642 0042 1 ! MODIFIED BY: 3 
; 43 0045 1! 3 
3 44 boa 1 ! 1-001 = Original. SBL 1-April-1981 $ 
; 5 045 1 ! 1-002 - Make total-width a longword. SBL 30-Jun-1982 : 
; 46 0046 1 !-- ; 
s 67 0047 1 3 


| 
| 
| 
| 
FACILITY: Pascal Language Support 
| 
j 
| 
| 
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RSBTTL ‘Declarations’ 
| PROLOGUE DEFINITIONS: 


4, 
dy 
8 
REQUIRE *RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 

! 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSWRITE_REALE_D: NOVALUE ' Write to textfile 
PASSWRITEV_REALE_D: NOVALUE; i Write to string 


—"OVODONOUNLSWNOV”D 


oun 


felelelelelelelalo) 


MACROS: 

} NONE 
EQUATED SYMBOLS: 
} NONE 
FIELDS: 

NONE 

OWN STORAGE: 
NONE 


a a ed ed od ed 8d = ed dd SS 8 2 = 
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Declarations 14-Sep 7138 93: g}: $8 PASRTLe $R tip Reuktae RIRED 0 B82; 31 
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PASSWRITE_REALE Write a D_floating in E format 16-Sep-1984 02:21:4 AX-11 Bliss-32 V4.0-74 Page 3 
1 ASSWR TETREALE_D'= Write D_floating in E forma 137800- 1386 95:83: PASRTL. RESPASWRIRED B32: 1 . (3) 
4 ZSBITL ‘PASSWRITE_REALE_D = Write D_floating in E format to Fexti tie. 
4 GLOBAL ROUTINE passweite REALE _D ( ! Write D_floating 
4 PFV: REF $PASSPFU_FILE- VARIABLE, ! File variable 
4 VALUE _0, VALUE ! Value to write 
4 TOTAL-WIDTH: SIGNED, i Total field width 
4 ERROR ! Error unwind address 
4 ): NOVALUE = 


+ 
FUNCTIONAL DESCRIPTION: 


WN —ODOOnNOuUsS 


This procedure writes a D_floating value in exponential notation 
to the specified textfile. 


CALLING SEQUENCE: 


CALL PASSWRITE_REALE_D (PFV.mr.r, VALUE.rd.v, TOTAL_WIDTH.rl.v 
CERROR.j.rJ) 


FORMAL PARAMETERS: 


oOo 
Wr—O0O@® 


PFV - The Pascal File Variable (PFV) passed ¥ reference. 
The structure of the PFV is defined in PASPFV.REQ. 


VALUE 


The D_floating value to write by immediate value. 
Note that this requires two argument list positions. 


| 
| 
TOTAL_WIDTH - Total field width. 
| 


ERROR 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
If the file is the standard file OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


Optional. Address to unwind to if an error occurs. 


we MOPIMPIMPINININPINIDNS 2 2 2 2 OO S| SMS DOO OOOCOSCO wooovowovovoe fo fo Te) Nn 


fealeleleleleleleleleleleolelalalolelelalolealelolalelelalolelolelelololelolelelelelolelelelelelelelelelelolololol ol o mmm: 
2oiwdtodstoiatiaiatiadtaiatatal datas asadataiadwaatatatatabaaatiaaabababaiatbabadb aad abadadadabababad 


OO O00 090909 09 09 09 09 09 09 SIN SINS NN SA AAAAAAAAOUIIUIUIUIV 


me ee ee et ee ewe me ee ee ee ed ed ed ed ed 0d ed od wd od = od = 


1 LINTOOLON = Line too mF he: ANE ETM 

$ NEGWIDDIG - negative Width or Digits specification is not allowed 

4 a 

$ BEGIN 

8 LOCAL 
| 


a : 


PASSWRITE_REALE Write a D_floating in E format 1-Se 1984 02:21:4 AX-11 Bliss-32 V4.0-74 P 4 
1002 PASSWR TETREALE_D >= Write D_floating in E forma 137 808= 138s 95:83:98 PASRTL.SRCJPASWRIRED.B32;1 set (3) 
FCB: REF SPASS$FCB_CONTROL_BLOCK, ! File control block 

Hesieiie tint datum’ eigent viet 
! Maximum w 
PFV_ADDR: “VOLATILE, i Enable argument 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 
BUILTIN 
ACTUALCOUNT; 
ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


14 
Get ERROR parameter, if present. 


IF RCTUAL CONT () GEQuU 5 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 


14 
Validate PFV and get PFV. 


; Set unwind action to unlock file. 


UNWIND_ACT = PASS$SK_UNWIND_UNLOCK; 


14 
Do common initialization. 


PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); FCB); 
'¢ 


i Get field width and maximum width. Ensure that field width is not 
negative. 


WR] CO OONAUE WN (OO OONAUS WN SO OODNAUSWN OO DNAUESWWN O09 


FIELD WIDTH = .TOTAL WIDTH; 
If gf TELD_wioTH Lss 0 


SPASSIO_ERROR (PAS$_NEGWIDDIG,0); 

REMAINING _WIDTH = .FCB TFCBSA_RECORD. END) - .FCB CFCBSA_RECORD_CUR); 
'¢ 

: Do the convert. If it fails, give an error. 


Vw 


; 
; 
te 
: 
; 


Be Se Se Se Se Se Be Be Se Se Se Se Ge Ge Be Be Ge Se Se Ge Ge Ge Ge Fe Ge Ge Se Ge Se Se Ge Ge Ge Gs Se Se Ge Se Se Se Se Se Se Se oe Se Se See Sees Sse Se Sees eee 
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IF NOT PASSCVT_D_T (VALUE_O, ' Value to convert 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVI]; FCB); 
| 
| 


] 
PASSURITE_REALE Write 2 D.floating in E for 4 AX-11 Bliss-32 V p 5 | P 
A808 ASS RITE-REALE yy Write Me mttoating in E forma 16-sep-1964 95: g}: $8 PASRTL.SR RCIP PASWRI lee ED. Age, 1 whois (3) | 1 
: 196 7 FCB. CF CBSA =RECORD_CURI, ! Destination : 
; #19 8 FIELD wID DTH, Ahad arma by width | 3 
: 198 REMAINING WIDTH) i Maximum w ; 
; 199 0260 THEN | ; 
; 90 61 SPASSIO_ERROR (PAS$_LINTOOLON,1,(.FIELD_WIDTH=.REMAINING_WIDTH)); ; 
: O¢ 8g \+ ; 
; 20 64 i Advance the record pointer. 3 
: 30 i 3 
3 96 0 ¢ FCB CFCBSA_RECORD_CUR) = .FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH; ; 
: 208 6 69 '+ : 
; 209 0270 i Call WRITE epilogue routine to move the Last character written to the : 
; + 8 rg zi user's buffer and to unlock the file variable. : 
: 21 037 : 
3 1 037% PASSSEND_WRITE (PFV CPFVSR_PFV), FCB CFCBSR_FCB)); ; 
: 318 0276 RETURN; : 
> 216 0277 2 : 
; 2 0278 1 END; ! End of routine PAS$WRITE_REALE_D : 
TITLE PASSURITE_REALE.D Write @ D_floating in E forna ; 
IDENT \1-002\ 3 
.EXTRN PASS$WRITE_REALE_D : 
N PAS$WRITEV_REALE_D : 
EXTRN PAS$$1IO_HAN : 
.EXTRN PASSSVALIDATE PFV : 
.EXTRN PASSSIN WRITE : 
~EXTRN SS8s16NAL. PASS$K_NEGWIDDIG : 
.EXTRN PA $e VT_D_T, PAS$K-LINTOOLON : 
*EXTRN PASSSEND. Orite 3 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 3 
O1FC 00000 -ENTRY PASSWRITE_REALE_D, Save R2,R3,R4,R5,RO.R7,~ ; 0144 ; 
58 000000006 00 9€ 00002 MOVAB PASSSSIGNAL, R8 : : 
5E 10 ¢2 00009 SUBL2 #16, SP : : 
04 AE 7C 9900¢ CLRQ. ERROR_ADDR : 0197 : 
C AE D4 O000F LRL FV_ABDR F : 
6D 0067 CF ODE 90012 MOVAL 4$,~(FP) : : 
05 6C 91 0001 CMPB AP), #5 : 0217 ; 
05 1F OOOIA BLSSU $ 3 : 
04 AE 14 AC 00 O0001C MOVL ERROR, ERROR_ADDR : 9319 : 
56 04 AC 00 00021 1$: MOVL ‘ : 0221 : 
Oc AE 56 D0 99 5 MOVL ; : 
000000006 00 if: 029 JSB PASSSVACIDATE PFV : 0 37 : 
08 AE ot D 09 F MOVL so] WIND AC : 0233 : 
000000006 00 16 00033 JSB PASSSINIT QRITE > 0239 ; 
6E 10 AC 09 0039 MOVL TOTAL MULDTH. FIELD_WIDTH : 0246 : 
OA 18 00030 BGEQ : B54 3 
E 04 0003F CLRL = = (SP) : 0 : 


; Routine Size: 160 bytes, Routine Base: _PASSCODE + 0000 


0279 1 
0280 1 !<BLF/PAGE> 


Nn 3 
PASSWRITE_REALE Write, a D_floatin =$ep-1984 02:21:46 AX=11 Bliss-32 V4.0-74 p P 
1-002 ASEURITECREALE Do= Urite Dettoating in E forma eosebtond soiseics §— FAASAT Okt SSpRe Maly b80.1 age 55 1 
7 006 9A 0004 MOVZBL M#PASSK_NEGWIDDIG, -(SP) , : 
6 85 FB Ne CALLS #2, PASSSSIGNAL : : 
52 FO A? EC AZ C3 00049 28: SUBL3 =20(FCB), =16(F CB), REMAINING. WIDTH : 0250 ; 
52 BD 4 PUSHL REMAINING : 0259 ; 
04 AEF 5 PUSHAB ee ; 0256 : 
68 ac oF 0008 PUSHAB cree) : 352e 
000000006 00 i i 098 CALLS yat ve esscyt DLT : 3 
7E 6E 2 5 0006 s REMAINING WIDTH, FIELD_WIDTH, -(SP) 3 
7E 006 4 Bf 0906 MOVZBL #PAS$K L INTOOLON, (SP) : 
68 03 FB 0006 CALLS #3, PASSSSIGNA 
EC A? 6E CO 00072 3$ ADDL2 FIELD_WIDTH, -20(FCB) 0267 F 
000000006 00 16 0007 JS PASSSEND_WRITE 0274 : 
04 0007 RET 0278 : 
0000 00070 4$ «WORD Save nothing 0197 3 
50 08 AC DO 0007 MOVL  BCAP), : 
50 04 AO DO 0008 MOV 4(RO), RO : 
F4 AO 9F 0008 PUSHAB ERROR ADDR : 
FB AO 9F 0008 PUSHAB UNWIND ACT : 
FC AO 9F 0008D PUSHAB PFV_ADBR : 
03 DD 00090 PUSHL #3 : 
5E DD 00092 PUSHL SP : 
7E 04 AC 7D 00094 MOVa &(AP), -(SP) : 
000000006 00 03 FB 90098 CALLS #3, PAS$$IO_HANDLER ; 
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PASSWRITE_REALE Write a D floating in E format 1B-sep “19 AX-11 
1008 PASSWRITEV_REALE "8 - Write D “Floating in E form 12: Haat 7 93: g}: $8 


ZSBTTL ‘PASSWRITEV_REALE_D = Write D_floating in E format to string' 
GLOBAL gt Be pel He REALE_D ( 


wo 
STRING_ LINE : REF VECTOR C, WORD], 
VALUEO?'V LUE1 

tO1OTH: SIGNED, 


tess -32 V4.0- ae Page 7 
PASRT i°3 CJPASWRIRED.B32;1 (4) 


—_ 


Maximum Length of string 
String to write to 

Value to write 

Total field width 


Error unwind address 
) : NOVALUE = 


le4 
FUNCTIONAL DESCRIPTION: 


This procedure writes a D_floating in exponential format 
to the specified string. 


| 
| 
| 
| 
CALLING SEQUENCE: | 
CALL PAS$SWRITEV_REALE_D (MAX_LENGTH.rw. xe STRING_LINE.wvt.r, | 
VALUE.rd.v, TOTAL EOIDTH. rw.v C, ERROR.j.rJ) | 

| 

| 


FORMAL PARAMETERS: 


WN =O ODONAOULSWN ("OC OONAUESWN — O OONOAUES WR —"OOONOUS Wr 


POPIPIPIPIPONININYINININYNINPININPINIAPSNININININININININPIN PNP NoNoNyNoNononofnononofonononononornefnenony 
nls otras antes eo SPREE EEE PWN WIN nopopopoponepenerd 


3 0 8) 

; 0 ¢ 1 

; 0285 1 

; 0284 1 

; 0285 1 

; 0286 1 

; 0287 1 

; 0288 1 

3 0289 1 

; 0290 1 

; 0291 1 

; 0 3¢ 1 

: 0295 1! 

; 0294 1! 

; 0295 1! 

; 0296 1! 

3 0297 1: 

; 0298 1! 

: 0299 1! 

3 0300 1! 

3 0301 1! 

; tat 1 

; O37 : MAX_LENGTH - The maximum Length of STRING_LINE. 

s O302 : STRING_LINE - A varying string to which the output will be appended. 

: 0307 1! VALUE - The value to write. Note that the D_floating value 
3 0308 1! is passed by immediate value in two argument List 
3 $344 : entries. | 
; bait : TOTAL_WIDTH - The width of the field to write. | 
: $318 1 i ERROR - Optional. If specified, the address to unwind to 

5 0314 1: in case of an error. 
; 0315 1! 

; 0316 1°! IMPLICIT INPUTS: 

s 0317 1! 
; 0318 1! NONE 

; 0319 1! 

; 0320 1 ' IMPLICIT OUTPUTS: 

3 0321 1! 

3 O35¢ 1! NONE 

3 0323 1! 

; 0324 1 ! ROUTINE VALUE: 
: 5 0325 1! 
5 6 0326 1! NONE 
3 7 0327 1! 
g 8 0328 1 | SIDE EFFECTS: 

: 9 0385 1! 

; 0 0330 1 | NONE 

: 71 O33 1! 

: 27 3 § 1 i SIGNALLED ERRORS: 

s ef 0333 1! 

3 274 0334 1! See PASSWRITE_REALE_D 

: 275 0335 1 | 

; 276 O38 1 i- 

a Aer 0337 1 


A 
PASSWRITE_REALE Write a D floating in E format ise 1984 02:21:4 AX-11 Bliss-32 V4.0-74 Page 8 

1-002 PASSWRITEV_REALE_D = Write D_floating in E form 12-88-1388 95:83'5 PASRTL. SRC IPASWRIRED.B 2:1 . (4) | 

; 278 0 38 BEGIN 

> 279 0339 

: 580 0340 LOCAL 

; 281 0341 PFV: SPASSPFV fit sa ! Pascal File Variable 

: be Oate ARG_LIST: VECTOR (5, LONG), ' Argument List | 

; ¢ tH PFV_ADDR: VOLATILE, ! Enable argument | 

>; 284 0344 UNWIND_ACT: VOLATILE, ' Enable argument 

; 285 0345 ERROR_ADDR: VOLATILE; ! Enable argument 

; 286 0346 

; 287 0347 BUILTIN 

; Sas 0 rt ACTUALCOUNT; ! Count of arguments | 

; $56 0 50 ENABLE 

3 $3) bees § PASS$SSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 

3 $38 0334 2 \+ 

> 294 0354 2 ' Get ERROR parameter, if present. 

; 295 0355 2 le 

; 296 0356 2 

: 297 0357 2 IF ACTUALCOUNT () GEQU 6 | 

; 298 0358 § THEN 

; 444 O36 § ERROR_ADDR = .ERROR; ! Set unwind address | 

; 301 0361 2 PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address 

; 308 0306 2 

; ww 0363 2 14 

3: 304 0364 2 ' Set up ARG_LIST. 

3 3505 0365 2 le 

; 306 0366 § 

s Sor 0367 ARG_LIST (0) = 4; ' Four arguments | 

; 308 0368 2 ARG-LIST C1] = PFV CPFVSR_PFV); i PFV address 

; 309 0369 2 ARG_LIST @] = .VALUEO; i Value to write | 

; 310 0370 2 ARG_LIST (3) = .VALUE1; ' 

s SV 0371 2 ARG_LIST C4] = .TOTAL_WIDTH; ! Field width | 

3 Siz 037% 2 | 

ie ib 0373 2 + 

; 216 0374 2 ' Call PAS$$DO_WRITEV to do the work, giving it the address of 

s 31S 0375 2 ! PASSWRITE_REALE_D to call. : 
3 636 0376 2 te ; 
s Sur 0377 $ : 
; 318 0378 PAS$SS$DO_WRITEV (PFV CPFVSR_PFVJ, .MAX_LENGTH, STRING_LINE (OJ, ARG_LIST, : 
; 319 0379 2 PASSWRITE_REALE_D); | : 
; 320 0380 2 | : 
; $5) tet $ RETURN; : 
: wee 382 : 
3 Seo 0383 1 END; ! End of routine PAS$SWRITEV_REALE_D 


-EXTRN PASS$SDO_WRITEV 


007¢ 00000 .ENTRY PASSWRITEV_REALE_D, Save R2.R3,R4,R5,R6 3 0282 | 
5E gc Ce 0000 SUBL2 #44, SP ; | 
E 4 90 CLRL  ERROR_ADDR ; 0338 
6D o08e CF ; SO0A MOVAL yawn nC : 
06 6C 94 S0r MPB_ (AP), #6 > 0357. 


pAssuni TE REALE priate a 
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vw 
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7E 
000000006 00 


; Routine Size: 


1 
1 !<BLF/PAGE> 


for 
- write. D. *FLoating in E form 
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wo 
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_PASSCODE + OOA0 


fou 
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; AX=-11 a Pd -32 V vee 
PASRTL.SRC PAsuniaeD. B32;1 


OR, ERROR_ADDR 
, PFV_ADDR 


ST+4 
, ARG_LIST+8 
WIDTH? ARG. GgLIST +16 
SSuRi Te -REAL 
ABT 
STRING gkINE. af 
PAR St ENGL oRtrey 


Save nothing 
8(AP), RO 


4 (AP) 
#3, Passio. HANDLER 


4 
PASSWRITE_REALE Write a D_ floating in E forma 18. Sep-19 AX-11 Bliss-32 V4.0 Pa 
1-002 PASSORT TED -REALE_D = Write D. *FLoating in E form 12: 7300-1384 95: $355 PASRTL.SRC PASWRIRED. 3 231 sp 


; HH oie 1 END ! End of module PAS$WRITE_REALE_D 
0388 


1 
0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 271 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


2 ae ee ee ee Symbols -<------ Pages Processing 

s File Total Loaded Percent Mapped Time 

F -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 

; COMMAND QUALIFIERS 

3 FLSSS/CHECE OEY TELD EME IAL OPT IRI TE} /UDTRACE/E Sai, LER SPREUR ERED SOB IOUR IS sPATURIRED MSRC$:PASWRIRED/UPDATE=(ENH$:PASWRIRED 


0 data bytes 


Lines/CPU Min: 
Lexemes/CPU-Min: 12 
Memory Used: 80 pag 


0 
code 
00:07. 
Elapsed ites: 00:17. 
3228 
21 
y es 
Compication Complete 
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